home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / SERIE_SP / SP_015 / FACE_VAL / LISTINGS / LISTING6.TXT < prev   
Text File  |  1998-03-14  |  419b  |  18 lines
  1. REM FVAL_TITLE: rsc_ob_reset()
  2. PROCEDURE rsc_ob_reset(tree&,ob&)
  3.   LOCAL index&
  4.   '
  5.   ' 19.05.1996 Holger Herzog V1.1
  6.   '
  7.   @rsc_setup_tree(tree&)
  8.   FOR index&=0 TO max_number_windows&
  9.     IF window_array&(index&,0)>0
  10.       IF tree&=window_array&(index&,4)
  11.         '        @aes_screen_lock
  12.         @rsc_ob_draw(index&,ob&)
  13.         '       @aes_screen_unlock
  14.       ENDIF
  15.     ENDIF
  16.   NEXT index&
  17. RETURN
  18.